﻿Imports BE.BE
Imports BL.BL


Public Class frmGestionClientes
    Dim mlista As List(Of Cliente_BE)

    Private Sub frmGestionClientes_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Helper_FL.setearPermisos(frmPrincipal.usr, Me)
        mlista = Cliente_BL.listarClientes

        Me.DataGridView1.DataSource = mlista
    End Sub



    Private Sub btnClienteNuevo_Click(sender As Object, e As EventArgs) Handles btnClienteNuevo.Click
        Dim mcliente As New Cliente_BE

        mcliente.Apellido = Me.TextBox1.Text
        mcliente.Nombre = Me.txtNombre.Text
        mcliente.DNI = Me.TextBox4.Text
        mcliente.Estado = Me.CheckBox1.CheckState
        mcliente.FechaNacimiento = Me.TextBox2.Text
        mcliente.Poliza = Me.TextBox3.Text

        Dim mtele As New Telefono_BE

        mtele.Numero = Me.TextBox6.Text
        mtele.TipoObjeto = Telefono_BE.EnumTipoObjeto.Persona

        mcliente.Telefonos.Add(mtele)

        mtele = New Telefono_BE

        mtele.Numero = Me.TextBox7.Text
        mtele.TipoObjeto = Telefono_BE.EnumTipoObjeto.Persona

        mcliente.Telefonos.Add(mtele)

        Try
            Cliente_BL.altaCliente(mcliente)

            mlista = Cliente_BL.listarClientes
        Catch ex As Exception
            MsgBox(ex)
        End Try
        
        Me.DataGridView1.DataSource = mlista
    End Sub
End Class